home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / SERVER / ALMAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-11  |  1.9 KB  |  87 lines
  1. unit ALMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, TabNotBk;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     Label1: TLabel;
  12.     AliasNames: TListBox;
  13.     Label2: TLabel;
  14.     AliasParams: TMemo;
  15.     Label4: TLabel;
  16.     AliasTables: TListBox;
  17.     Label5: TLabel;
  18.     AliasProcs: TListBox;
  19.     AliasServerName: TEdit;
  20.     Label3: TLabel;
  21.     NewAliasBtn: TButton;
  22.     ShowDBObjectsBtn: TButton;
  23.     ExitBtn: TButton;
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure AliasNamesClick(Sender: TObject);
  26.     procedure ShowDBObjectsBtnClick(Sender: TObject);
  27.     procedure NewAliasBtnClick(Sender: TObject);
  28.     procedure ExitBtnClick(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   MainForm: TMainForm;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. uses
  43.   DB, ALNew;
  44.  
  45. procedure TMainForm.FormCreate(Sender: TObject);
  46. begin
  47.   Session.GetAliasNames(AliasNames.Items);
  48.   AliasNames.ItemIndex := 0;
  49.   AliasNamesClick(nil);
  50. end;
  51.  
  52. procedure TMainForm.AliasNamesClick(Sender: TObject);
  53. begin
  54.   AliasTables.Clear;
  55.   AliasProcs.Clear;
  56.   with AliasNames do
  57.     Session.GetAliasParams(Items[ItemIndex], AliasParams.Lines);
  58.   AliasServerName.Text := AliasParams.Lines.Values['SERVER NAME'];
  59. end;
  60.  
  61. procedure TMainForm.ShowDBObjectsBtnClick(Sender: TObject);
  62. var
  63.   I: Integer;
  64. begin
  65.   with AliasNames do
  66.   begin
  67.     Session.GetTableNames(Items[ItemIndex], '', False, False, AliasTables.Items);
  68.     try
  69.       Session.GetStoredProcNames(Items[ItemIndex], AliasProcs.Items);
  70.     except
  71.     end;
  72.   end;
  73. end;
  74.  
  75. procedure TMainForm.NewAliasBtnClick(Sender: TObject);
  76. begin
  77.   NewAliasForm.ShowModal;
  78.   Session.GetAliasNames(AliasNames.Items);
  79. end;
  80.  
  81. procedure TMainForm.ExitBtnClick(Sender: TObject);
  82. begin
  83.   Close;
  84. end;
  85.  
  86. end.
  87.